home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / PFILES3.9.ARC / (ÌASER ÃYCLE (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  8.7 KB  |  241 lines
  1. 100 POKE152,PEEK(251)
  2. 110 GOTO420
  3. 120 :
  4. 130 :REM START OF USER JUMP TABLE.
  5. 140 :
  6. 150 GOTO630 :REM SEND P$+CHR$(13) OUT.
  7. 160 GOTO640 :REM SEND P$ OUT.
  8. 170 GOTO680:REM GET L$ FROM MODEM.
  9. 180 B=D7%:GOTO1250:REM SEND 'P' TO REL.
  10. 190 B=D7%:GOTO780:REM READ ERR CHANNEL.
  11. 200 GOTO800:REM READ SYSTEM CLOCK.
  12. 210 GOTO860:REM DISPLAY USER ONLINE.
  13. 220 GOTO880:REM REMOTE SYSOP MENU.
  14. 230 GOTO1040:REM DISPLAY DIR.
  15. 240 GOTO1230:REM BREAK RC INTO LO/HI.
  16. 250 GOTO1280:REM UPDATE (USER LOG).
  17. 260 GOTO1290:REM EMPTY UL$.
  18. 270 GOTO1300:REM GET U$() FROM DISK.
  19. 280 GOTO1310:REM GET N$() FROM DISK.
  20. 290 GOTO1320:REM SEND U$() TO DISK.
  21. 300 GOTO1330:REM SEND N$() TO DISK.
  22. 310 GOTO1350:REM FIND DV,DR$ IN DR%().
  23. 320 GOTO1360:REM FIND DV,DR$
  24. 330 GOTO1370:REM INCREMENT DV,DR$.
  25. 340 GOTO1430:REM HANG UP PHONE.
  26. 350 GOTO1490:REM FIND TIME CONNECTED.
  27. 360 GOTO1650:REM RETURN TO BBS.
  28. 370 GOTO1660:REM LOAD NEXT MODULE.
  29. 380 GOTO1540:REM GET SC() FROM DISK.
  30. 390 GOTO1620:REM SEND SC() TO DISK.
  31. 400 GOTO1520:REM SEND SEQ OUT.
  32. 410 :
  33. 420 B1=56577:B2=56579:Q$=CHR$(34):B3=56590:B4=56588:DV=8:N$=CHR$(0):SI=54272
  34. 430 DIMU$(15),N$(15),DR%(7):DR$="0"
  35. 440 GOSUB450:GOTO500
  36. 450 OPEN1,8,5,"0:(BBS.CONFIG)":FORT=0TO9:INPUT#1,A:IFA=0THEN470
  37. 460 FORI=0TOA-1:INPUT#1,A$,A,A:NEXT
  38. 470 NEXT:INPUT#1,DR:FORI=0TODR-1:INPUT#1,DR%(I):NEXT:DR=DR+7
  39. 480 INPUT#1,RF:AA=-((RFAND128)=128):RF$=MID$(STR$(AA),2)+":(USERFILE)"
  40. 490 INPUT#1,SY$,BD$,MT%,RC,S1$,S2$,RR,P1$,P2$,D5,D6,MF,N5,N3,N4:CLOSE1:RETURN
  41. 500 F$=CHR$(13):P=0:POKE51972,P:SYS51976:BS=255:UL$=""
  42. 510 DC$="[149] --===[129]***[158]===[153]---===[159]***[154]===---[156]===***[158]===--[152]":GOTO1720
  43. 520 IFA$="[133]"THENSY=SY+1:GOSUB880:SY=SY-1:RETURN
  44. 530 IFA$<>"[134]"THEN560
  45. 540 P$=F$+F$+"[195]HAT [205]ODE:"+F$:GOSUB150:SYS52012:CD=PEEK(52033)
  46. 550 A$=CHR$(PEEK(52034)):P$=F$+F$+"[197]XITED...."+F$:GOSUB150
  47. 560 IFA$="[140]"THENCD=1:RETURN
  48. 570 IFL<>65535THENRETURN
  49. 580 OPEN1,8,5,"0:(USER LOG),A":PRINT#1,UL$:PRINT#1,"[212]IME [197]LAPSED![152]":CLOSE1
  50. 590 CD=1:UL$="":RETURN
  51. 600 IFA$=""ORZ$=""THENGOSUB620
  52. 610 RETURN
  53. 620 POKESI+4,21:POKESI+4,20:RETURN
  54. 630 P$=P$+F$
  55. 640 IFL=55THENPRINT#4,P$;:RETURN
  56. 650 POKE52030,SY:POKE52031,CG:POKE52040,MM:SYS51994,P$
  57. 660 CD=PEEK(52033):A$=CHR$(PEEK(52034)):IFA$=CHR$(0)THENA$=""
  58. 670 RETURN
  59. 680 GOSUB1490:IFVAL(U$(14))<COTHEN720
  60. 690 POKE52030,SY:POKE52031,CG:POKE52038,EC:POKE52039,L:POKE52040,MM
  61. 700 L$="Y=R/R.*                           ":SYS52003,L$:CD=PEEK(52033)
  62. 710 L=PEEK(52034)+256*PEEK(52036):A$=CHR$(PEEK(52034)):GOSUB520:RETURN
  63. 720 P$=F$+F$+"[217]OU [200]AVE [197]XCEEDED [217]OUR [212]IME [204]IMIT!!"+F$+"[199][207][207][196][194][217][197]!"+F$:GOSUB150
  64. 730 GOTO360
  65. 740 GOSUB1240:AA=RF:GOSUB1350
  66. 750 FORL=1TO2:PRINT#15-B,"P"CHR$(98)CHR$(R1)CHR$(R2)CHR$(1):GOSUB780:NEXT
  67. 760 GOSUB780:IFER$<"20"ORER$="50"THENRETURN
  68. 770 PRINT"[197]RROR IN (USERFILE)!":GOSUB1430:STOP
  69. 780 ES$="":GOSUB790:ER$=LEFT$(ES$,2):RETURN
  70. 790 GET#15-B,A$:ES$=ES$+A$:ON-(A$<>CHR$(13))GOTO790:RETURN
  71. 800 T1$="02:30:09.5 AM":SYS51982,T1$:TM$=T1$+""
  72. 810 HO$=LEFT$(TM$,2):MI$=MID$(TM$,4,2):FZ$=RIGHT$(TM$,2)
  73. 820 IFVAL(LEFT$(TM$,2))<>12ANDFZ$<>"AM"THENC2=1:GOTO850
  74. 830 IFC2THENOPEN1,8,5,"@0:(T.CALLERS),S,W":PRINT#1," ":CLOSE1:DT=DT+1
  75. 840 IFC2THENC2=0:NT=0:IFS9THENOPEN1,8,5,"@0:(USER LOG),S,W":CLOSE1
  76. 850 DA$=M$+STR$(DT):RETURN
  77. 860 PRINT"[156]"F$U$(1)" <*> [204]VL-"+MID$(STR$(AC),2):GOSUB1490
  78. 870 PRINTTM$" [195]ONNECTED:"STR$(CO)" MINS.[152]":RETURN
  79. 880 D8=D7:DR$=D7$
  80. 890 P$=" [147]":GOSUB150
  81. 900 P$=DC$+F$+"   --**]> [210]EMOTE [211]YS-[207]P [205]ENU <[**--"+F$+DC$+F$:GOSUB150
  82. 910 P$="$ - [196]IRECTORY":GOSUB150
  83. 920 P$="@ - [196]OS COMMANDS":GOSUB150
  84. 930 P$="# - [212]OGGLE DRIVE #"+STR$(D8)+";"+DR$:GOSUB150
  85. 940 P$=F$+"[210][211][205]"+MID$(STR$(D8),2)+";"+DR$+":":GOSUB160:L=1:GOSUB170:IFCDTHENRETURN
  86. 950 IFL$=""THENRETURN
  87. 960 GOSUB1280:UL$=UL$+"[211]YSOP-"+L$+CHR$(13)
  88. 970 AA=D8:ON-(L$="$")-2*(L$="#")GOSUB1040,1370
  89. 980 IFL$="?"THEN890
  90. 990 IFL$<>"@"THEN940
  91. 1000 P$=F$+">":GOSUB160:L=39:GOSUB170:IFCDTHENRETURN
  92. 1010 B=D8-8:IFL$=""THENGOSUB780:P$=F$+ES$:GOSUB150:GOTO940
  93. 1020 IFLEFT$(L$,4)=P2$+":"THENPRINT#15-B,RIGHT$(L$,LEN(L$)-4)
  94. 1030 GOTO940
  95. 1040 P$=F$+"[208]ATTERN? $"+DR$+":":GOSUB160:L=16:GOSUB170:FI$=L$+""
  96. 1050 IFFI$=""THENFI$="*"
  97. 1060 P$=F$:GOSUB150:OPEN1,D8,0,"$"+DR$+":"+FI$
  98. 1070 GOSUB780:IFER$>"01"THENCLOSE1:P$=F$+ES$:GOSUB150:RETURN
  99. 1080 GET#1,A$:GET#1,A$
  100. 1090 GET#1,A$:GET#1,A$:IF(ST)AND64THENCLOSE1:RETURN
  101. 1100 GET#1,LO$:GET#1,HI$
  102. 1110 LO$=LO$+N$:HI$=HI$+N$
  103. 1120 P$=STR$(ASC(LO$+CHR$(0))+256*ASC(HI$+CHR$(0)))+" "
  104. 1130 GET#1,A$:IFA$=""THEN1170
  105. 1140 GET#5,Z$:IFZ$=""THENGETZ$
  106. 1150 IFZ$=" "THENCLOSE1:RETURN
  107. 1160 P$=P$+A$:GOTO1130
  108. 1170 IFECANDMID$(P$,8,1)="("THEN1090
  109. 1180 GOSUB150:IFA$=" "THENCLOSE1:RETURN
  110. 1190 GOTO1090
  111. 1200 POKEB3,65:POKEB4,40:POKEB2,231:POKEB1,57:POKEB4,48:RETURN
  112. 1210 GOSUB1200:POKEB2,PEEK(B2)OR32:POKEB1,PEEK(B1)AND223:POKEB1,PEEK(B1)OR32
  113. 1220 POKEB1,PEEK(B1)AND223:POKEB4,40:POKEB4,47:POKEB2,230:GOSUB1200:RETURN
  114. 1230 HI=INT(RC/256):LO=RC-(HI*256):RETURN
  115. 1240 GOSUB1230:R1=LO:R2=HI:RETURN
  116. 1250 GOSUB1240:GOTO750
  117. 1260 AC=VAL(U$(3)):A2=INT(AC/256):A1=AC-A2*256:RETURN
  118. 1270 AA=VAL(N$(3)):RETURN
  119. 1280 IFLEN(UL$)<230THENRETURN
  120. 1290 OPEN1,8,5,"0:(USER LOG),A":PRINT#1,UL$:CLOSE1:UL$="":RETURN
  121. 1300 GOSUB1310:FORI=1TO15:U$(I)=N$(I):NEXT:RETURN
  122. 1310 FORT=1TO15:INPUT#3,N$(T):NEXT:RETURN
  123. 1320 FORI=1TO15:N$(I)=U$(I):NEXT
  124. 1330 N$(0)="":FORT=1TO15:N$(0)=N$(0)+Q$+N$(T)+F$:NEXT
  125. 1340 PRINT#3,N$(0):RC=1:GOSUB740:RETURN
  126. 1350 B=AA-8:A=-((DR%(B)AND128)=128):DR$=MID$(STR$(A),2):RETURN
  127. 1360 GOSUB1350:A=(AAAND128)=128:DR$=MID$(STR$(A),2):RETURN
  128. 1370 IFDR$="0"THENGOSUB1350:IFDR$="1"THENRETURN
  129. 1380 AA=AA+1:IFAA>15THENAA=8
  130. 1390 FORL=0TO(DR-8):IFAA<>(DR%(L)AND63)THENNEXT:GOTO1380
  131. 1400 IFA1AND32ORSYTHEN1420
  132. 1410 GOSUB1350:IFDR%(B)AND64THEN1380
  133. 1420 D8=AA:DR$="0":RETURN
  134. 1430 ON(MT%-1)GOTO1440,1450,1470,1480,1210,1210
  135. 1440 POKEB2,PEEK(B2)OR32:POKEB1,PEEK(B1)AND223:RETURN
  136. 1450 FORT=1TO2000:NEXT:PRINT#5,"+++";:FORT=1TO2000:NEXT
  137. 1460 PRINT#5,"[193][212][200]0[216]2[197]0[205]0[209]0[214]0[211]0=0":RETURN
  138. 1470 POKEB2,38:POKEB1,38:RETURN
  139. 1480 POKEB1,PEEK(B1)OR32:RETURN
  140. 1490 GOSUB800:CT=VAL(HO$):MI=VAL(MI$):CO=ABS((LH*60+LM)-(CT*60+MI))
  141. 1500 IFLH=12ANDC2THENCO=ABS(CO-720)
  142. 1510 RETURN
  143. 1520 B=D7%:OPEN1,D7,5,D7$+":"+FI$:GOSUB190:IFER$>"01"THENCLOSE1:RETURN
  144. 1530 POKE52030,SY:SYS52021:CLOSE1:CD=PEEK(52033):A$=CHR$(PEEK(52034)):RETURN
  145. 1540 OPEN3,8,3,"0:(SCORES)":GOSUB190:IFER$>"01"THENCLOSE3:RETURN
  146. 1550 RC=R:GOSUB1230:B=0:GOSUB750:GET#3,A$:IF(ST)AND64THENSC=0:GOTO1570
  147. 1560 INPUT#3,SC
  148. 1570 IFSC=0THENSC=I:CLOSE3:DIMSC(SC):RETURN
  149. 1580 IFI>SCTHENDIMSC(I):GOTO1600
  150. 1590 DIMSC(SC)
  151. 1600 FORT=1TOSC:INPUT#3,SC(T):NEXT:CLOSE3:IFI>SCTHENSC=I
  152. 1610 RETURN
  153. 1620 OPEN3,8,3,"0:(SCORES)":GOSUB190:IFER$>"01"THENCLOSE3:RETURN
  154. 1630 RC=R:GOSUB1230:B=0:GOSUB750:SC$=STR$(SC)+F$:FORT=1TOSC
  155. 1640 SC$=SC$+STR$(SC(T))+F$:NEXT:PRINT#3,SC$;:RC=1:GOSUB750:CLOSE3:RETURN
  156. 1650 FI$="(ST/R 3.?)":DV=D5
  157. 1660 SYS52050:OPEN1,8,5,"@0:(DATA),S,W":PRINT#1,R$:AA=DV:GOSUB1360:FORT=1TO15
  158. 1670 PRINT#1,Q$U$(T):NEXT:PRINT#1,LH:PRINT#1,LM:PRINT#1,SA:PRINT#1,SY
  159. 1680 PRINT#1,S9:PRINT#1,HL:PRINT#1,M$:PRINT#1,DT:PRINT#1,LEN(F$):PRINT#1,Q$LN$
  160. 1690 PRINT#1,DV:PRINT#1,NW:PRINT#1,Q$L$:CLOSE1:POKE252,32
  161. 1700 POKE251,PEEK(152):PRINT"[146][147]LOAD"Q$DR$":"FI$Q$","DVAND127""
  162. 1710 POKE631,131:POKE198,1:NEW
  163. 1720 OPEN1,8,5,"0:(DATA)":INPUT#1,R$:R=VAL(R$):FORT=1TO15
  164. 1730 INPUT#1,U$(T):NEXT:INPUT#1,LH,LM,SA,SY,S9,HL,M$,DT,T,LN$,DV,NW,L$
  165. 1760 CLOSE1:GOSUB1260:CG=VAL(U$(8)):IFT=2THENF$=CHR$(13)+CHR$(10)
  166. 1770 D7=DVAND127:AA=(DVAND128)=128:D7$=MID$(STR$(AA),2):D7%=D7-8
  167. 2000 REM "----------------------------"
  168. 2010 REM "- [204]ASER [195]YCLE FROM:        -"
  169. 2020 REM "-  [201]MAGE [194][194][211] V1.1          -"
  170. 2030 REM "- [205]ODIFIED TO RUN ON:      -"
  171. 2040 REM "-  [211][212]/[210] [194][194][211] V3.8           -"
  172. 2050 REM "- [194]Y:                      -"
  173. 2060 REM "-  [194]LACK [198]IRE              -"
  174. 2070 REM "----------------------------"
  175. 2080 REM "-[201]T ONLY TOOK A FEW HOURS! -"
  176. 2090 REM "----------------------------"
  177. 2500 QB=300:IFPEEK(659)=8THENQB=1200
  178. 2510 IFPEEK(659)=10THENQB=2400
  179. 3000 SYS52041:N$=CHR$(0):C$=CHR$(13):FL=1:GOTO3200
  180. 3010 C%=C%+D%:A=PEEK(C%):ON-(A<>32ANDA<>160)GOTO3180:P%=P%+1:Z$=E$:GOSUB3050
  181. 3020 GET#5,A$:A=ASC(A$+N$):GETA$:B=ASC(A$+N$):A=AORB:IFA=0ORA=E%THEN3010
  182. 3030 ON-(A=29)-(A=157)*2-(A=145)*3-(A=17)*4GOSUB3060,3070,3080,3090:IFA<>81THEN3010
  183. 3040 GOTO3180
  184. 3050 SYS52050:PRINT#5,Z$+CHR$(157)+CHR$(E%);:PRINTZ$+CHR$(157)+CHR$(E%);
  185. 3055 SYS52041:RETURN
  186. 3060 GOSUB3100:D%=1:C%=C%+D%:E$="[192]":Z$=MID$("[192][192][173][176]",RS,1):GOTO3050
  187. 3070 GOSUB3100:D%=-1:C%=C%+D%:E$="[192]":Z$=MID$("[192][192][189][174]",RS,1):GOTO3050
  188. 3080 GOSUB3100:D%=-40:C%=C%+D%:E$="[221]":Z$=MID$("[189][173][221][221]",RS,1):GOTO3050
  189. 3090 GOSUB3100:D%=40:C%=C%+D%:E$="[221]":Z$=MID$("[174][176][221][221]",RS,1):GOTO3050
  190. 3100 E%=A:RS=-(D%=1)-2*(D%=-1)-3*(D%=40)-4*(D%=-40):RETURN
  191. 3110 PRINT"[147]\W1[192][192][192][192][192][192][192][192][192][192][192][192][192][157][157][157][157][157][157][157][157][157][157][157][157][157]            [221][221][221][204]ASER [195]YCLE[146][139]"
  192. 3120 PRINT" \O[192]\O[192][139]  [215]RITTEN [194]Y [212]HE [211]YSLOB [153] [204]ITTLE [202]OHN[139]"
  193. 3130 PRINT"[153] [195]LUB [205]ED\O.\H1215-551-7295[139] [199]EAR[202]AMMER'S [201][201]...........215-487-0463[139]"
  194. 3140 PRINT" [212]HE [197]NCHANTED [198]OREST......215-825-1136[139]"
  195. 3150 PRINT" [208]ORT [195]OMMODORE............801-423-2734[139]  [213]SE [195]URSOR [203]EYS TO [205]OVE [192][192] [209] "
  196. 3160 PRINT"TO [209]UIT [146][139] [154][176]\O[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][139]":FORX=1TO13
  197. 3162 PRINT" [221]                                    [221][139]":NEXT
  198. 3164 PRINT" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][129][211]PEED="+RIGHT$("00"+MID$(STR$(S%),2),2)
  199. 3166 PRINT"[154][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][145][139]":RETURN
  200. 3170 REMPRINT" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][129][211]PEED=\#2\%S[154][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][145][139]":RETURN
  201. 3180 PRINT"\P0[203]KKKKRAAASSSHHHH!\W1\F1"
  202. 3190 A%=(P%/(11-S%))*(QB/300):PRINT"[139][139][217]OUR [211]CORE IS"+STR$(A%):GOTO3310
  203. 3200 ONCGGOTO3210:PRINT"[139][139][211]ORRY, [217]OU [205]UST [194]E [201]N [199]RAPHICS [205]ODE[139][212]O [208]LAY[139][139]":GOTO3500
  204. 3210 IFFLTHENDR=1:PRINT"\P0[147][139][139][158][201]NSTRUCTIONS?[160][153]":GOSUB3510:IFA=1THENGOSUB3380
  205. 3220 S%=1
  206. 3230 C%=1592:P%=.:E%=29:E$="[192]"
  207. 3240 GOSUB3110:PRINT"[129][145][145][145][145][145][145][145][145]*\G1":D%=1:GOTO3010
  208. 3250 PRINT"[147] [156]\O[192]\O[192][139] [153]  [212]HE [194]EST [212]EN [204]ASER [195]YCLE [195]HAMPIONS  [146][139] [156]\O[192]\O[192][139]":RC=.
  209. 3260 GOSUB3300:ON-(E%<>.)GOSUB3290:FORX=1TO10:GOSUB3470:INPUT#2,B$,B%
  210. 3262 PRINT" "+RIGHT$("00"+MID$(STR$(X),2),2)+">[153]"+B$
  211. 3264 PRINTRIGHT$("                       ",23-LEN(B$))+"[154]"
  212. 3266 PRINTRIGHT$("00000"+MID$(STR$(B%),2),5)+" [208]OINTS[139]"
  213. 3270 REMPRINT" \#2\%X>[153]\$B\_27[154]\# \#5\%B [208]OINTS[139]":IFRCTHENX=11
  214. 3275 NEXT:CLOSE2
  215. 3280 PRINT" [156]\O[192]\O[192][139] [153]         [208]LEASE [208]RESS [193]NY [203]EY         [146][139] [156]\O[192]\O[192]\G1[139]":RETURN
  216. 3290 DR=3:A$="(LASER TEN,L,":GOSUB3480:FORX=1TO10:GOSUB3470:PRINT#2,MID$(I1$,2)C$0:NEXT
  217. 3300 DR=3:A$="(LASER TEN":GOTO3480
  218. 3310 GOSUB3300:ON-(E%<>.)GOSUB3290:X=10:GOSUB3470:INPUT#2,A$,B%:IFA%>=B%THEN3340
  219. 3320 PRINT"[139][139][158][217]OU DIDN'T MAKE IT INTO THE [194]EST [212]EN[139][204]IST.  "
  220. 3330 PRINT"[139][214]IEW [194]EST [212]EN? ":GOSUB3510:ONTR%+1GOTO3490:ONAGOSUB3250:GOTO3370
  221. 3340 GOSUB3300:ON-(E%<>0)GOSUB3290:PRINT"[139][139][156][217]OU'VE [205]ADE IT TO THE [194]EST [212]EN![139]":Y=10
  222. 3350 FORA=9TO1STEP-1:X=A:GOSUB3470:INPUT#2,B$,B%:IFB%<A%THENX=A+1:Y=A:GOSUB3470:PRINT#2,B$C$B%
  223. 3360 A=-A*(B%<A%):NEXT:X=Y:GOSUB3470:PRINT#2,U$(1)C$A%:CLOSE2:GOTO3330
  224. 3370 PRINT"[139][139][159][208]LAY [204]ASER [195]YCLE [193]GAIN? ":GOSUB3510:ONAGOTO3200:CLOSE2:GOTO3500
  225. 3380 FL=.:PRINT"[147][150][192][192][192][192][192][192][192][192][192][192][192][192][192][204]ASER [195]YCLE[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  226. 3390 PRINT"[139][192][192][192][192][192][192][192][192][192][192][192][192][192][201]NSTRUCTIONS[192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  227. 3400 PRINT"[139][139]  [158][213]SE [212]HE [195]URSOR [203]EYS  [212]O [199]UIDE[139]  [212]HE [150][192][192][204]ASER[192][192][158]. [196]O [206][207][212] [200]IT [212]HE"
  228. 3410 PRINT"[139]  [215]ALL [206]OR [212]HE [150][192][192][204]ASER[192][192][158] [207]R [217]OU[139]  [193]RE [153][196]EAD [205]EAT!!"
  229. 3420 PRINT"[139][139][150][192][192][192][192][192][192][192][192][192][192][192][192][192][204]ASER [195]YCLE[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  230. 3430 PRINT"[139][192][192][192][192][192][192][192][192][192][192][192][192][192][193]N [211][212]/[210] [195]/[199] [199]AME[192][192][192][192][192][192][192][192][192][192]"
  231. 3440 PRINT"[139][192][192][192][192][192][192][192][192][192][192][192][192][192][194]Y [153][194]LACK [198]IRE[150][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  232. 3450 PRINT"[139][192][192][192][192][192][192][192][192][192][192][192][192][192]([193]NY [203]EY)[150][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]\G1[139]":RETURN
  233. 3460 REM MODED TO ST/R V3.8 BY
  234. 3465 REM ------- "[194]LACK [198]IRE" ------
  235. 3470 RC=X:GOTO180
  236. 3480 CLOSE2:OPEN2,D7,2,DR$+":"+A$:GOTO3520
  237. 3490 GOSUB340
  238. 3500 GOTO360
  239. 3510 L=1:GOSUB170:A=-(L$="Y"ORL$="[217]"):TR%=CD=0:RETURN
  240. 3520 GOSUB190:E%=VAL(ER$):RETURN
  241.